From 7f3e7fc9e3f4a72d874aafda70e94be197089c21 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 22 Mar 2009 14:12:34 +0000 Subject: [PATCH] (rmail-expunge): Update summary buffer even if NO-SHOW. --- lisp/mail/rmail.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index a5dc10cf4f1..f39f7bf4636 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -3265,9 +3265,15 @@ See also user-option `rmail-confirm-expunge'." (interactive) (when (rmail-expunge-confirmed) (let ((was-deleted (rmail-message-deleted-p rmail-current-message)) - (was-swapped (rmail-buffers-swapped-p))) + (was-swapped (rmail-buffers-swapped-p)) + (total rmail-total-messages)) (rmail-only-expunge t) - (unless dont-show + (if dont-show + ;; Do update the summary buffer, if any. + (when (rmail-summary-exists) + (with-current-buffer rmail-summary-buffer + (let ((rmail-total-messages total)) + (rmail-update-summary)))) (if (rmail-summary-exists) (rmail-select-summary (rmail-update-summary)) ;; If we expunged the current message, a new one is current now, -- 2.30.2